(gnus-output-to-rmail): adjust to

`rmail-output-to-rmail-file'

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 3d75515dfeb75630be0a08e3f6d4625d2deb9074..ee863a01cc3aafd02f1f1855e1f5e1699e03a8a3 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -755,10 +755,12 @@ with potentially long computations."
            (when msg
              (goto-char (point-min))
              (widen)
-             (search-backward "\^_")
+             (search-backward "\n\^_")
              (narrow-to-region (point) (point-max))
-             (goto-char (1+ (point-min)))
              (rmail-count-new-messages t)
+             (if (rmail-summary-exists)
+                 (rmail-select-summary
+                  (rmail-update-summary)))
              (rmail-show-message msg))))))
     (kill-buffer tmpbuf)))